home *** CD-ROM | disk | FTP | other *** search
- object DBF2SQL: TDBF2SQL
- Left = 274
- Top = 192
- Width = 669
- Height = 361
- Caption = 'BDE Database Conversion Utility'
- Font.Color = clWindowText
- Font.Height = -17
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 120
- Position = poScreenCenter
- Scaled = False
- OnShow = FormCreate
- TextHeight = 20
- object CnvrtBtn: TButton
- Left = 501
- Top = 248
- Width = 145
- Height = 33
- Caption = '&Convert'
- TabOrder = 3
- OnClick = CnvrtBtnClick
- end
- object ExitBtn: TButton
- Left = 501
- Top = 288
- Width = 145
- Height = 33
- Caption = 'E&xit'
- TabOrder = 4
- OnClick = ExitBtnClick
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 473
- Height = 153
- Caption = ' Source File '
- Ctl3D = True
- ParentCtl3D = False
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 68
- Width = 97
- Height = 21
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Path'
- end
- object DbfFile: TLabel
- Left = 8
- Top = 108
- Width = 97
- Height = 21
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Table Name'
- end
- object Label2: TLabel
- Left = 8
- Top = 28
- Width = 97
- Height = 21
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Alias'
- end
- object SpeedButton1: TSpeedButton
- Left = 440
- Top = 24
- Width = 25
- Height = 25
- Hint = 'Change the parameters for this alias, i.e. Username/Password'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300333
- 33333333333773FF333333333330F0033333333333373773FF333333330FFFF0
- 03333333337F333773FF3333330FFFFFF003333333733FF33773333330FF00FF
- FF80333337F3773F3337333330FFFF0FFFF03FFFF7FFF3733F3700000000FFFF
- 0FF0777777773FF373370000000000FFFFF07FFFFFF377FFF3370CCCCC000000
- FF037777773337773F7300CCC000003300307F77733337F37737000C00000033
- 33307F373333F7F333370000007B703333307FFFF337F7F33337099900BBB033
- 33307777F37777FF33370999007B700333037777F3373773FF73099900000030
- 00337777FFFFF7F77733000000000033333377777777773333330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton1Click
- end
- object SourcePath: TEdit
- Left = 112
- Top = 65
- Width = 321
- Height = 29
- Hint = 'Enter the path for the source file if applicable.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object SourceAlias: TComboBox
- Left = 112
- Top = 24
- Width = 321
- Height = 28
- Hint = 'Enter the BDE alias for the Source File'
- Ctl3D = True
- ItemHeight = 20
- ParentCtl3D = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnExit = SourceAliasChange
- end
- object SourceTableName: TComboBox
- Left = 112
- Top = 104
- Width = 321
- Height = 28
- Hint = 'Drop down list of available files for this alias/path.'
- ItemHeight = 20
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnEnter = SourceTableNameEnter
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 168
- Width = 473
- Height = 153
- Caption = ' Destination File '
- TabOrder = 1
- object Label4: TLabel
- Left = 8
- Top = 29
- Width = 98
- Height = 22
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Alias'
- end
- object Label6: TLabel
- Left = 8
- Top = 109
- Width = 98
- Height = 22
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Table Name'
- end
- object Label3: TLabel
- Left = 8
- Top = 72
- Width = 98
- Height = 22
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Path'
- end
- object SpeedButton2: TSpeedButton
- Left = 440
- Top = 24
- Width = 25
- Height = 25
- Hint = 'Change the parameters for this alias, i.e. Username/Password'
- Glyph.Data = {
- 78010000424D7801000000000000760000002800000020000000100000000100
- 04000000000000000000120B0000120B00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300333
- 33333333333773FF333333333330F0033333333333373773FF333333330FFFF0
- 03333333337F333773FF3333330FFFFFF003333333733FF33773333330FF00FF
- FF80333337F3773F3337333330FFFF0FFFF03FFFF7FFF3733F3700000000FFFF
- 0FF0777777773FF373370000000000FFFFF07FFFFFF377FFF3370CCCCC000000
- FF037777773337773F7300CCC000003300307F77733337F37737000C00000033
- 33307F373333F7F333370000007B703333307FFFF337F7F33337099900BBB033
- 33307777F37777FF33370999007B700333037777F3373773FF73099900000030
- 00337777FFFFF7F77733000000000033333377777777773333330000}
- NumGlyphs = 2
- ParentShowHint = False
- ShowHint = True
- OnClick = SpeedButton2Click
- end
- object DestPath: TEdit
- Left = 112
- Top = 68
- Width = 321
- Height = 29
- Hint = 'Enter the path for the destination file if applicable.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object DestAlias: TComboBox
- Left = 112
- Top = 24
- Width = 321
- Height = 28
- Hint = 'Enter the BDE alias for the Destination File'
- Ctl3D = True
- ItemHeight = 20
- ParentCtl3D = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnExit = DestAliasChange
- end
- object DestTableName: TComboBox
- Left = 112
- Top = 112
- Width = 321
- Height = 28
- Hint = 'Drop down list of available files for this alias/path.'
- ItemHeight = 20
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnEnter = DestTableNameEnter
- end
- end
- object RadioGroup1: TRadioGroup
- Left = 493
- Top = 8
- Width = 161
- Height = 233
- Caption = ' Action '
- ItemIndex = 0
- Items.Strings = (
- 'Append'
- 'Append/Update'
- 'Create'
- 'Delete'
- 'Update')
- TabOrder = 2
- OnClick = RadioGroup1Click
- end
- object SrcTable: TTable
- DatabaseName = 'SOURCEDB'
- ReadOnly = True
- Left = 8
- Top = 8
- end
- object SrcData: TDataSource
- DataSet = SrcTable
- Left = 8
- Top = 40
- end
- object BatchMove: TBatchMove
- AbortOnKeyViol = False
- AbortOnProblem = False
- ChangedTableName = 'BatChang'
- Destination = DestTable
- KeyViolTableName = 'BatKViol'
- Mode = batCopy
- ProblemTableName = 'BatProbl'
- RecordCount = 1
- Source = SrcTable
- Top = 160
- end
- object DestTable: TTable
- DatabaseName = 'DESTDB'
- Left = 8
- Top = 200
- end
- object SourceDataBase: TDatabase
- DatabaseName = 'SOURCEDB'
- LoginPrompt = False
- Left = 8
- Top = 72
- end
- object DestDataBase: TDatabase
- DatabaseName = 'DESTDB'
- LoginPrompt = False
- Left = 8
- Top = 232
- end
- end
-